home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / snapshot.ifx < prev    next >
Text File  |  2004-08-03  |  2KB  |  86 lines
  1. /*
  2.  * $VER: Snapshot 2.0.0 (19.8.94)
  3.  *
  4.  * Arexx program for the ImageFX image processing system.
  5.  * Written by Thomas Krehbiel (from an idea by Bob Fisher)
  6.  *
  7.  * Take a directory of images, and reduce them to small thumbnail
  8.  * snapshot images, and place them on one or more images which are
  9.  * then saved out somewhere.  This script also renders the snapshot
  10.  * pages down to 16 color images for easy viewing.  We can also
  11.  * optionally stamp the name of the file at the bottom of each
  12.  * thumbnail.
  13.  *
  14.  * By default we make 640x400 24-bit renderings with a 5x5 grid
  15.  * of thumbnails.
  16.  *
  17.  */
  18.  
  19. OPTIONS RESULTS
  20.  
  21. SIGNAL ON BREAK_C
  22.  
  23. GetMain
  24. IF rc = 0 THEN DO
  25.    RequestResponse 'The current buffer will be destroyed.'
  26.    IF rc ~= 0 THEN EXIT
  27.    END
  28.  
  29. KillBuffer Force
  30.  
  31. /* retreive defaults from any previous useage of this macro */
  32. defsdir  = GETCLIP('IFX_Snapshot_DefSource')
  33. defspat  = GETCLIP('IFX_Snapshot_DefSrcPat')
  34.  
  35. /* some defaults - change as desired */
  36. IF defsdir  = '' THEN defsdir  = ""          /* default source dir */
  37. IF defspat  = '' THEN defspat  = "#?"        /* default source pattern */
  38.  
  39. RequestFile '"Source Directory:"' '"'defsdir'"' '" "' '"'defspat'"'
  40. IF rc ~= 0 THEN EXIT    /* cancelled */
  41. sourcedir = filereq.path
  42. sourcepat = filereq.pat
  43.  
  44. Rx Snapshot_Gui
  45.  
  46. DO FOREVER
  47.  
  48.    Message 'Building list of files...'
  49.  
  50.    /* build list of files to process */
  51.  
  52.    ECHO 'List >RAM:__Snap_TEMP__ NOHEAD LFORMAT='sourcedir'/%s' sourcedir 'PAT' sourcepat
  53.    ADDRESS COMMAND 'List >RAM:__Snap_TEMP__ NOHEAD LFORMAT='sourcedir'/%s' sourcedir 'PAT' sourcepat
  54.    IF rc ~= 0 THEN DO
  55.       RequestNotify 'Problem scanning the source directory.'
  56.       EXIT
  57.       END
  58.  
  59.    /* sort alphabetically */
  60.    ADDRESS COMMAND 'Sort RAM:__Snap_TEMP__ TO RAM:__Snap_LIST__'
  61.    ADDRESS COMMAND 'Delete RAM:__Snap_TEMP__ QUIET'
  62.  
  63.    /* okay, process the files */
  64.  
  65.    Rx Snapshot_Engine sourcedir 'RAM:__Snap_LIST__'
  66.  
  67.    RequestResponse 'Please insert next volume.'
  68.    IF rc ~= 0 THEN LEAVE
  69.  
  70.    END
  71.  
  72.  
  73. BREAK_C:
  74.  
  75. ADDRESS COMMAND 'Delete RAM:__Snap_LIST__ QUIET'
  76.  
  77. KillBuffer Force
  78. KillBrush
  79. Undo On
  80. Redraw On
  81. Requesters On
  82. Redraw
  83.  
  84. EXIT
  85.  
  86.